﻿Imports System.IO
Imports System.Text

Public Class Form1

    Dim mt As New Metodos '<- Instancia del objeto para llamar métodos
    Private Sub cargarTexto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cargarTexto.Click
        Dim texto As String = mt.SeleccionarArchivo()
        If texto <> "" Then
            displayTexto.Text = File.ReadAllText(texto, Encoding.Default)
        End If
    End Sub

    'Cierra la aplicación
    Private Sub cerrarButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cerrarButton.Click
        Me.Close()
    End Sub

    'Insancia de la clase Métodos para buscar la cadena de texto deseada
    Private Sub buscarPalabra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buscarPalabra.Click
        Dim entrada As String = palabraEntrada.Text
        If entrada <> "" Then
            If displayTexto.Text <> "" Then
                displayResultado.Text = mt.BuscarCadena(entrada)
            Else
                MsgBox("No ha seleccionado ningun archivo para realizar la búsqueda.")
            End If
        Else
            MsgBox("Ingrese una palabra para buscar")
        End If
    End Sub

    'Limpiar el formulario
    Private Sub cleanButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cleanButton.Click
        displayResultado.Text = ""
        displayTexto.Text = ""
        palabraEntrada.Text = ""
    End Sub
End Class
